home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / e / mailinglists / amigae.0793july.archive / 000064_crash!genie.ge….com!g.beasley2_Sat, 24 Jul 93 07:44:11 PST.msg < prev    next >
Internet Message Format  |  1994-05-26  |  1KB
  1. Received: by bkhouse.cts.com (V1.16/Amiga)
  2.     id AA00000; Sat, 24 Jul 93 07:44:11 PST
  3. Received: from relay2.geis.com by crash.cts.com with smtp
  4.     (Smail3.1.28.1 #15) id m0oJk7I-0000WUC; Sat, 24 Jul 93 06:58 PDT
  5. Received: by relay2.geis.com
  6.     (1.37.109.4/15.6) id AA08903; Sat, 24 Jul 93 14:58:57 +0100
  7. Message-Id: <9307241358.AA08903@relay2.geis.com>
  8. Date: Sat, 24 Jul 93 14:39:00 BST
  9. X-Genie-Id: 8476808
  10. X-Genie-From: G.BEASLEY2
  11. From: g.beasley2@genie.geis.com
  12. To: amigae@bkhouse.cts.com
  13. Subject: Re: Armageddon in E!
  14.  
  15. Reply:  Item #4395553 from POLITIKILL@CUP.PORTAL.COM@INET#
  16.  
  17. Here is a little goodie that someone posted in the
  18. AmigaNet:Programming conference.  I am not sure if it has been posted
  19. here yet, but it works well some here it is:
  20.  
  21. MODULE 'dos/dos'
  22.  
  23. PROC readStr(handle, buffer)
  24.   DEF bytes, size, eof=FALSE
  25.   bytes:=Read(handle, buffer, StrMax(buffer))
  26.   size:=bytes
  27.   IF InStr(buffer, '\n', 0) > -1
  28.     Seek(handle, -(bytes - InStr(buffer, '\n', 0)-1), OFFSET_CURRENT)
  29.     bytes:=InStr(buffer, '\n', 0)
  30.   ELSE
  31.     IF size < StrMax(buffer) THEN eof:=TRUE
  32.   ENDIF
  33.   buffer[bytes]:=0
  34. ENDPROC eof
  35.  
  36. This is a replacement for v2.1b's ReadStr() function.  This one is
  37. generally 4 to 8 times faster and functions identically to E's.
  38.  
  39. Check it out.
  40.  
  41. BEANMAN...
  42.